home *** CD-ROM | disk | FTP | other *** search
- object Varform: TVarform
- Left = 81
- Top = 114
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'Variable Handling Example'
- ClientHeight = 304
- ClientWidth = 579
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 120
- Position = poScreenCenter
- ShowHint = True
- Visible = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 20
- object Label1: TLabel
- Left = 60
- Top = 10
- Width = 521
- Height = 25
- Caption = 'Expression = MyFunc(x,y) which returns the sum x + y'
- end
- object ResultMemo: TMemo
- Left = 30
- Top = 50
- Width = 519
- Height = 181
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object Button1: TButton
- Left = 30
- Top = 250
- Width = 91
- Height = 41
- Hint = 'Access vars thru Variables Property'
- Caption = 'Variables'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 128
- Top = 250
- Width = 91
- Height = 41
- Hint = 'Access vars thru GetVarPtr method'
- Caption = 'GetVarPtr'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = Button2Click
- end
- object BitBtn1: TBitBtn
- Left = 435
- Top = 250
- Width = 111
- Height = 41
- TabOrder = 3
- Kind = bkClose
- end
- object Button3: TButton
- Left = 225
- Top = 250
- Width = 91
- Height = 41
- Hint = 'Access vars thru the VariableList Property'
- Caption = 'VariableList'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 323
- Top = 250
- Width = 98
- Height = 41
- Hint = 'Access vars thru the StringValues Property'
- Caption = '&StringValues'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = Button4Click
- end
- end
-